home *** CD-ROM | disk | FTP | other *** search
- /*****************************************************************************
- FILE : ui_setup.c
- SHORTNAME : setup.c
- SNNS VERSION : 3.2
-
- PURPOSE :
- NOTES :
-
- AUTHOR : Tilman Sommer
- DATE : 26.6.1990
-
- CHANGED BY :
- IDENTIFICATION : @(#)ui_setup.c 1.12 3/2/94
- SCCS VERSION : 1.12
- LAST CHANGE : 3/2/94
-
- Copyright (c) 1990-1994 SNNS Group, IPVR, Univ. Stuttgart, FRG
-
- ******************************************************************************/
-
-
- #include <stdio.h>
-
- #include "ui.h"
-
- #include <X11/Xaw/Form.h>
- #include <X11/Xaw/Box.h>
- #include <X11/Xaw/Toggle.h>
- #include <X11/Xaw/Cardinals.h>
- #include <X11/Xaw/SimpleMenu.h>
- #include <X11/Xaw/SmeBSB.h>
- #include <X11/Xaw/SmeLine.h>
-
- #include "ui_xWidgets.h"
- #include "ui_setupP.h"
- #include "ui_display.h"
- #include "ui_colEdit.h"
-
- #include "ui_mainP.h"
- #include "ui_color.h"
- #include "ui_action.h"
-
- #include "ui_setup.ph"
-
-
- /*****************************************************************************
- FUNCTION : ui_set_initData
-
- PURPOSE : init setup data of specified display
- RETURNS : void
- NOTES :
-
- UPDATE : 1.2.1990
- ******************************************************************************/
-
- void ui_set_initData (struct Ui_DisplayType *displayPtr)
-
- {
- (displayPtr->setup).showLinkFlg = FALSE;
- (displayPtr->setup).showDirectionFlg = FALSE;
- (displayPtr->setup).showWeightFlg = FALSE;
- (displayPtr->setup).showValue = UI_ACTIVATION;
- (displayPtr->setup).showTitle = UI_NUMBER;
- (displayPtr->setup).showTitleFlg = TRUE;
- (displayPtr->setup).showValueFlg = TRUE;
- (displayPtr->setup).linkNegTrigger = 0.0;
- (displayPtr->setup).linkPosTrigger = 0.0;
- (displayPtr->setup).unitScaleFactor = 1.0;
- (displayPtr->setup).linkScaleFactor = 5.0;
- if (NOT ui_col_monochromeMode) {
- (displayPtr->setup).backgroundColorIndex = ui_initalBackgroundColorIndex;
- (displayPtr->setup).selectionColorIndex = ui_initalSelectionColorIndex;
- (displayPtr->setup).textColorIndex = ui_initalTextColorIndex;
- }
- else {
- (displayPtr->setup).backgroundColorIndex = UI_WHITE;
- (displayPtr->setup).selectionColorIndex = UI_YELLOW;
- (displayPtr->setup).textColorIndex = UI_BLACK;
- }
- sprintf((displayPtr->setup).siteName,"");
- }
-
-
- /*****************************************************************************
- FUNCTION : ui_xCreateSetupPanel
-
- PURPOSE : creates a form widget for for all setup elements
- RETURNS : void
- NOTES : some constants are used (see below) to get a relativ positioning
- of the items. This is VERY useful after changings.
-
- UPDATE : 28.8.1991
- *****************************************************************************/
-
- void ui_xCreateSetupPanel (Widget parent, struct Ui_DisplayType *displayPtr)
-
- {
- /* tabs for data fields and small buttons */
-
- Widget topLabel, bottomLabel, lLabel, toggle, toggleLabel, scrollbar;
- Widget button, mButton, menu, entry;
- char buf[80];
- float topOfThumb;
-
- int fontWidth = 8;
-
- int titelWidth = 15 * fontWidth;
- int noWidth = 4 * fontWidth;
- int numberWidth = 8 * fontWidth;
- int nameWidth = 15 * fontWidth;
-
- /***************************************************************************/
-
- ui_setupPanel =
- XtCreateManagedWidget("sPanel", formWidgetClass, parent, NULL, ZERO);
-
- /* which display is to setup ? */
- ui_set_displayPtr = displayPtr;
-
-
- /***************************** OPTIONS ***********************************/
-
- topLabel =
- ui_xCreateLabelItem("units top :", ui_setupPanel,
- titelWidth, NULL, NULL);
-
-
- toggle =
- ui_xCreateToggleItem("on", ui_setupPanel,
- NULL, topLabel, NULL);
- ui_xSetToggleState(toggle, (ui_set_displayPtr->setup).showTitleFlg);
- XtAddCallback(toggle, XtNcallback, (XtCallbackProc) ui_set_getSetupData,
- (caddr_t) UI_UNIT_TOP_GENERAL);
-
- mButton =
- ui_xCreateMenuButtonItem("show", ui_setupPanel,
- toggle, NULL);
-
- menu =
- XtCreatePopupShell("menu", simpleMenuWidgetClass, mButton,
- NULL, ZERO);
-
- entry =
- XtCreateManagedWidget("name", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_NAME);
- entry =
- XtCreateManagedWidget("number", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_NUMBER);
- entry =
- XtCreateManagedWidget("z-value", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_ZVALUE);
-
- entry =
- XtCreateManagedWidget("winner", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_WINNER);
-
- ui_showTopLabel =
- ui_xCreateLabelItem(" ", ui_setupPanel,
- nameWidth, mButton, NULL);
-
- ui_set_showProc(NULL, (ui_set_displayPtr->setup).showTitle, NULL);
- /* initial value */
-
-
- bottomLabel =
- ui_xCreateLabelItem(" bottom :", ui_setupPanel,
- titelWidth, NULL, topLabel);
-
- toggle =
- ui_xCreateToggleItem("on", ui_setupPanel,
- NULL, bottomLabel, topLabel);
- ui_xSetToggleState(toggle, (ui_set_displayPtr->setup).showValueFlg);
- XtAddCallback(toggle, XtNcallback, (XtCallbackProc) ui_set_getSetupData,
- (caddr_t) UI_UNIT_BOTTOM_GENERAL);
-
- mButton =
- ui_xCreateMenuButtonItem("show", ui_setupPanel,
- toggle, topLabel);
-
- menu =
- XtCreatePopupShell("menu", simpleMenuWidgetClass, mButton,
- NULL, ZERO);
-
- entry =
- XtCreateManagedWidget("activation", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc,
- (caddr_t) UI_ACTIVATION);
- entry =
- XtCreateManagedWidget("initial act.", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc,
- (caddr_t) UI_INITIAL_ACTIVATION);
- entry =
- XtCreateManagedWidget("output", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_OUTPUT);
- entry =
- XtCreateManagedWidget("bias", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_showProc, (caddr_t) UI_BIAS);
-
- ui_showBottomLabel =
- ui_xCreateLabelItem(" ", ui_setupPanel,
- nameWidth, mButton, topLabel);
- ui_set_showProc(NULL, (ui_set_displayPtr->setup).showValue, NULL);
- /* initial value */
-
-
- lLabel =
- ui_xCreateLabelItem("links :", ui_setupPanel,
- titelWidth, NULL, bottomLabel);
-
- toggle =
- ui_xCreateToggleItem("on", ui_setupPanel,
- NULL, lLabel, bottomLabel);
- ui_xSetToggleState(toggle, (ui_set_displayPtr->setup).showLinkFlg);
- XtAddCallback(toggle, XtNcallback, (XtCallbackProc) ui_set_getSetupData,
- (caddr_t) UI_LINK_GENERAL);
- toggle =
- ui_xCreateToggleItem("value", ui_setupPanel,
- NULL, toggle, bottomLabel);
- ui_xSetToggleState(toggle, (ui_set_displayPtr->setup).showWeightFlg);
- XtAddCallback(toggle, XtNcallback, (XtCallbackProc) ui_set_getSetupData,
- (caddr_t) UI_LINK_VALUE);
-
- toggle =
- ui_xCreateToggleItem("direction", ui_setupPanel,
- NULL, toggle, bottomLabel);
- ui_xSetToggleState(toggle, (ui_set_displayPtr->setup).showDirectionFlg);
- XtAddCallback(toggle, XtNcallback, (XtCallbackProc) ui_set_getSetupData,
- (caddr_t) UI_LINK_DIRECTION);
-
-
- button =
- ui_xCreateButtonItem("layers", ui_setupPanel,
- NULL, toggle);
- XtAddCallback(button, XtNcallback, (XtCallbackProc) ui_set_assignLayers, NULL);
-
- if (ui_col_colorDisplay) {
- mButton =
- ui_xCreateButtonItem("color", ui_setupPanel,
- button, toggle);
- XtAddCallback(mButton, XtNcallback, (XtCallbackProc) ui_createColorEditPannel,
- (Widget) mButton);
- } else {
- mButton =
- ui_xCreateMenuButtonItem("color", ui_setupPanel,
- button, toggle);
- menu =
- XtCreatePopupShell("menu", simpleMenuWidgetClass, mButton,
- NULL, ZERO);
-
- entry =
- XtCreateManagedWidget("black on white", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_colorProc,
- (caddr_t) UI_PALETTE_MONO);
- entry =
- XtCreateManagedWidget("white on black", smeBSBObjectClass, menu,
- NULL, ZERO);
- XtAddCallback(entry, XtNcallback, (XtCallbackProc) ui_set_colorProc,
- (caddr_t) UI_PALETTE_MONO_INVERSE);
- }
-
- /* lLabel =
- ui_xCreateLabelItem("units positiv: ", ui_setupPanel,
- titelWidth, NULL, button);
-
- topOfThumb = (float) ((ui_set_displayPtr->setup).unitPosTrigger / ui_maxAct);
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, button);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed, (caddr_t) UNITS_POS);
-
-
- toggleLabel =
- ui_xCreateLabelItem("units negativ:", ui_setupPanel,
- titelWidth, NULL, scrollbar);
-
- topOfThumb = (ui_set_displayPtr->setup).unitNegTrigger / ui_minAct;
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, scrollbar);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed, (caddr_t) UNITS_NEG);
- */
-
- toggleLabel =
- ui_xCreateLabelItem("links positiv:", ui_setupPanel,
- titelWidth, NULL, button);
-
- topOfThumb = (float) (ui_set_displayPtr->setup).linkPosTrigger / ui_maxWeight;
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, button);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed, (caddr_t) UI_LINKS_POS);
-
-
- toggleLabel =
- ui_xCreateLabelItem("links negativ:", ui_setupPanel,
- titelWidth, NULL, scrollbar);
-
- topOfThumb = (float) (ui_set_displayPtr->setup).linkNegTrigger / ui_minWeight;
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, scrollbar);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed, (caddr_t) UI_LINKS_NEG);
-
-
- if (ui_col_colorDisplay) {
- toggleLabel =
- ui_xCreateLabelItem("links scale :", ui_setupPanel,
- titelWidth, NULL, scrollbar);
-
- topOfThumb =
- (float) (ui_set_displayPtr->setup).linkScaleFactor / 10.0;
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, scrollbar);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed,
- (caddr_t) UI_SCALE_LINKS);
- }
-
- toggleLabel =
- ui_xCreateLabelItem("units scale :", ui_setupPanel,
- titelWidth, NULL, scrollbar);
-
- topOfThumb = (float) (ui_set_displayPtr->setup).unitScaleFactor / ui_maxAct;
- scrollbar =
- ui_xCreateScrollbarItem("trigger", ui_setupPanel, 200, topOfThumb,
- topLabel, scrollbar);
- XtAddCallback(scrollbar, XtNjumpProc, (XtCallbackProc) ui_thumbed, (caddr_t) UI_SCALE_FACTOR);
-
-
- toggleLabel =
- ui_xCreateLabelItem("grid width :", ui_setupPanel,
- titelWidth, NULL, scrollbar);
-
- sprintf(buf,"%d", ui_set_displayPtr->gridSize);
- ui_set_gridWidthWidget =
- ui_xCreateDialogItem("gridWidth", ui_setupPanel, buf, noWidth,
- topLabel, scrollbar);
-
-
- toggleLabel =
- ui_xCreateLabelItem("origin (grid):", ui_setupPanel,
- titelWidth, NULL, toggleLabel);
-
- sprintf(buf,"%d", ui_set_displayPtr->origin.x);
- ui_set_originXWidget =
- ui_xCreateDialogItem("origin", ui_setupPanel, buf, numberWidth,
- topLabel, ui_set_gridWidthWidget);
-
- sprintf(buf,"%d", ui_set_displayPtr->origin.y);
- ui_set_originYWidget =
- ui_xCreateDialogItem("origin", ui_setupPanel, buf, numberWidth,
- ui_set_originXWidget, ui_set_gridWidthWidget);
-
- toggleLabel =
- ui_xCreateLabelItem("subnet number:", ui_setupPanel,
- titelWidth, NULL, toggleLabel);
-
- sprintf(buf,"%d", ui_set_displayPtr->subNetNo);
- ui_set_subnetWidget =
- ui_xCreateDialogItem("subnetNo", ui_setupPanel, buf, numberWidth,
- toggleLabel, ui_set_originXWidget);
-
-
- toggleLabel =
- ui_xCreateLabelItem("z-value :", ui_setupPanel,
- titelWidth, NULL, toggleLabel);
-
- sprintf(buf,"%d", ui_actualZvalue);
- ui_set_zWidget =
- ui_xCreateDialogItem("zValue", ui_setupPanel, buf, numberWidth,
- toggleLabel, ui_set_subnetWidget);
-
-
- /***************************************************************************/
-
- XawFormDoLayout(ui_setupPanel, TRUE);
- ui_setupIsCreated = TRUE;
- }
-
-
-
-
-
-
-
-
-
- /* end of file */
- /* lines: 403 */
-